home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 592b.lha / TermII / Fran軋is / Exemples ARexx / download.rexx next >
OS/2 REXX Batch file  |  1991-12-22  |  5KB  |  90 lines
  1. /*                                                                      */
  2. /*  download.rexx                                                       */
  3. /*                                                                      */
  4. /*          Ce programme permet de downloader un programme              */
  5. /*          depuis Calva                                                */
  6. /*                                                                      */
  7. /*                                                                      */
  8. /*  SYNTAXE :                                                           */
  9. /*                                                                      */
  10. /*      rx download CITE/BIB/SECTION/PROGRAMME fichier                  */
  11. /*                                                                      */
  12. /*                                                                      */
  13. /*  EXEMPLES :                                                          */
  14. /*                                                                      */
  15. /*      - Ramener le programme dme.zip depuis la cité Amiga, BIB Amiga, */
  16. /*        section UTILITAIRES, et le mettre en dh0:calva/new_dme.zip    */
  17. /*                                                                      */
  18. /*          rx download amiga/amiga/utilitaires/dme.zip dh0:calva/new_dme.zip */
  19. /*                                                                      */
  20. /*      - Ramener le programme TRUC, de la cité Mac, section INIT       */
  21. /*        (Il n'y a pas de sous BIB dans la cité Mac !!!!)              */
  22. /*                                                                      */
  23. /*          rx download mac//init/truc ram:truc.mac                     */
  24. /*                                                                      */
  25. /*                                                                      */
  26. /*  BUGS :                                                              */
  27. /*                                                                      */
  28. /*      Il n'y a aucun tests de fait sur les réponses de Calva ou sur   */
  29. /*      celles du modem. Pour un script parafaitement sûr, il faudrait  */
  30. /*      utiliser le mécanisme de "memory", et tester régulièrement la   */
  31. /*      valeur de la variable memory pour s'assurer que tout se passe   */
  32. /*      bien, et agir en conséquence.                                   */
  33. /*                                                                      */
  34. /*      Ce script n'a pas été testé de manière intensive, c'est le      */
  35. /*      moins qu'on puisse dire. Ce n'est vraiment qu'un exemple.       */
  36. /*                                                                      */
  37. /*      Il semblerait qu'un ^C pendant l'exécution du script fasse      */
  38. /*      tout planter. A vérifier, et surtout, comprendre pourquoi !     */
  39. /*                                                                      */
  40. /*                                                                      */
  41. /*  REMARQUES :                                                         */
  42. /*                                                                      */
  43. /*      Pour rire, on pourrait commencer par "console_close". Comme     */
  44. /*      ça, plus de fenêtre ! Dans le cas présent, ce n'est pas très    */
  45. /*      intéressant, mais si on avait voulu faire un script de lecture  */
  46. /*      automatique des forums, alors là, on aurait pu gagné beaucoup   */
  47. /*      de temps en fermant la fenêtre.                                 */
  48. /*                                                                      */
  49. /*                                                                      */
  50.  
  51. arg cite '/' bib '/' section '/' programme ' ' fichier
  52.  
  53.   say "cite = " cite
  54.   say "bib = " bib
  55.   say "section = " section
  56.   say "programme = " programme
  57.   say "fichier = " fichier
  58.  
  59.   address TERM
  60.  
  61.     serial_send '"ATDT16143061111\n"'
  62.     rexx_delay 5; rexx_wait 30 1
  63.     rexx_wait 5 1
  64.     serial_send '"eg19\n"'
  65.     rexx_wait 5 1
  66.     serial_send '"mot-de-passe\n"'
  67.     rexx_wait 5 1
  68.     serial_send '"'"CI" cite"\n"'"'
  69.     rexx_wait 5 1
  70.     serial_send '"'"BIB" bib"\n"'"'
  71.     rexx_wait 5 1
  72.     serial_send '"'section"\n"'"'
  73.     rexx_wait 5 1
  74.     xpr_open '"xprxmodem.library"'
  75.     xpr_init '"T0,C0,K1"'
  76.     serial_send '"'"im" programme"\n"'"'
  77.     rexx_wait 5 1
  78.     serial_send '"Y\n"'
  79.     rexx_wait 5 1
  80.     xpr_receive '"'fichier'"'
  81.     serial_send '"!!\n"'
  82.     rexx_delay 2
  83.     serial_send '"!!\n"'
  84.     rexx_wait 5 1
  85.     serial_send '"+++"'
  86.     rexx_delay 1
  87.     serial_send '"ATH\n"'
  88.  
  89.  
  90.